Tech Arsenal 1/Tech Arsenal (Arsenal Computer).ISO/tek-04/ada_tutr.zip/ADD.ADA

Text File | 1991-03-25 | 158b | 8 lines

with TEXT_IO; use TEXT_IO;
procedure ADD is
   package MY_INT_IO is new INTEGER_IO(INTEGER); use MY_INT_IO;
begin
   PUT(2 + 2);
   NEW_LINE;
end ADD;